PL1=0
DO WHILE PL1=0
   SET COLO TO W+/B,W+/N
   @  7, 1 CLEA TO 23,78
   @  8, 5 SAY "M O N T H L Y   R E P O R T S"
   @  7, 3 TO 9,35
   SET COLOR TO W+/N
   @ 11,5 CLEA TO 23,41
   SET COLOR TO N/BG,W+/N
   @ 10,3 CLEA TO 22,39
   @ 10,3 TO 22,39 DOUBLE
*   @ 11,5 prompt " A .. DOCTORS FEE REPORT         "
*   @ 13,5 PROMPT " B .. X-RAY FEE REPORT           "
   @ 15,5 PROMPT " A .. SUMMARY REPORT (LAST MONTH)"
*   @ 17,5 prompt " E .. HEALTH & FITNESS           "
   @ 21,5 PROMPT " X .. RETURN TO PREVIOUS MENU    "
   MENU TO PL1
   SET COLO TO BG+/B
   DO CASE
*      CASE PL1=1
*         do RDOCF
*      CASE PL1=2
*         DO RXRAYM
      CASE PL1=1
         do REPACMON
*      CASE PL1=4
*         DO REHEAFIT
      CASE PL1=2 .OR. LASTKEY()=27
         CLEA
         RETURN
   ENDCASE
   PL1=0
ENDDO

